1) E.70[CSP,SYS] vs. 2) E[CSP,SYS]	SRCCOM	12-10-75	09:27	PAGES 1,1

******** E.70[CSP,SYS] **** PAGE 2  LINE 40
1)	⊗>
*** E[CSP,SYS] *** PAGE 2  LINE 40
2)	 Better recovery from protection failure on protection RENAME.  Fix for system bug.
2)	 RAID flushed from system's upper segment.
2)	 .POX added to default extension list.
2)	 Up 10/11/75
2)	 Default entry to ? changed to page 2.
2)	⊗>


******** E.70[CSP,SYS] **** PAGE 76  LINE 49
1)	EXTTAB:	FOR X IN(FAI,SAI,F4,PUB,MAC,LSP,LAP,PAL,WRU,NSA,OSA,LST,CMD,TXT,RELX,<DMPX>
1)		,XGPX,DRWX,WD X,PC X,WPCX,PLTX,PCPX,PLXX,WL X,WLSX)
1)	{	(<SIXBIT /X/>)
*** E[CSP,SYS] *** PAGE 76  LINE 49
2)	EXTTAB:	FOR X IN(FAI,SAI,F4,PUB,POX,MAC,LSP,LAP,PAL,WRU,NSA,OSA,LST,CMD,TXT,<RELX>
2)		,DMPX,XGPX,DRWX,WD X,PC X,WPCX,PLTX,PCPX,PLXX,WL X,WLSX)
2)	{	(<SIXBIT /X/>)


******** E.70[CSP,SYS] **** PAGE 77  LINE 6
1)	REPEAT 0,< ;The system now does the updating of the time/date written (for RA mode).
1)		LDB TT,[270400,,%LKUP]
1)		CAIE TT,DSKO	;ONLY DO RENAME IN ALTER MODE
1)		JRST OPENO
1)		PUSHJ P,OPENO
1)		MOVE T,3(E)
1)		MOVEM T,ENTR+3
1)	;	MOVE T,DATBLK		;MUST FIX ******
1)	;	DPB T,[2700,,ENTR+2]
1)		LDB T,[POINT 12,DATBLK,17]
1)		DPB T,[POINT 12,ENTR+2,35]
1)		LDB T,[POINT 3,DATBLK,5]
1)		DPB T,[POINT 3,ENTR+1,20]
1)		LDB T,[POINT 11,DATBLK,35]	;Now the time in minutes
1)		DPB T,[POINT 11,ENTR+2,23]
1)		RENAME DSKO,ENTR
1)		OUTSTR [ASCIZ /RENAME TO SET WRITTEN TIME FAILED.
1)	/]
1)		POPJ P,
1)	>;end repeat 0.  OPENW now falls thru to OPENO.
1)	OPENO:	MOVSI T,-1(E)
*** E[CSP,SYS] *** PAGE 77  LINE 6
2)	OPENO:	MOVSI T,-1(E)


******** E.70[CSP,SYS] **** PAGE 230  LINE 57

	1) E.70[CSP,SYS] vs. 2) E[CSP,SYS]	SRCCOM	12-10-75	09:27	PAGES 230,230

1)		BLOCK ZENT-2	;Space for rest of QUERY (?) data
*** E[CSP,SYS] *** PAGE 230  LINE 57
2)		0
2)		2,,0		;Default entry to page 2
2)		BLOCK ZENT-2	;Space for rest of QUERY (?) data


******** E.70[CSP,SYS] **** PAGE 244  LINE 16
1)		OUTSTR [ASCIZ / Protection key /]
1)		MOVE T,EXTPNT		;Data already gobbled into EXTBUF by EXTEND
*** E[CSP,SYS] *** PAGE 244  LINE 16
2)		MOVEI G,[ASCIZ/ /]	;G is pointer to string to type when done
2)		OUTSTR [ASCIZ / Protection /]
2)		MOVE T,EXTPNT		;Data already gobbled into EXTBUF by EXTEND


******** E.70[CSP,SYS] **** PAGE 244  LINE 40
1)	PROTE2:	OUTSTR [ASCIZ /(cannot be changed in READONLY mode) /]
1)		JRST PROTE5
1)	PROTE3:	OUTSTR [ASCIZ /failure, code /]
1)		MOVE T,PROTEZ		;Get old value
1)		DPB T,[331100,,EDFIL+2]	;and restore it
1)		HRRZ T,EDFIL+1
1)		TYPOCT T
1)		OUTSTR [ASCIZ /. File has been closed./]
1)		JRST PROTEX
1)	PROTE4:	LDB T,[331100,,EDFIL+2]
1)		MOVEM T,PROTEZ#		;Save for reporting and to restore if error
1)		HLLZS EDFIL+1
*** E[CSP,SYS] *** PAGE 244  LINE 41
2)	PROTE2:	MOVEI G,[ASCIZ /; cannot be changed in READONLY mode. /]
2)		JRST PROTE5
2)	PROTE3:	OUTSTR [ASCIZ /cannot be changed/]
2)		MOVE T,PROTEZ		;Get old value
2)		DPB T,[331100,,EDFIL+2]	;and restore it
2)		MOVEI D,EDFIL		;RENAME failure closed the file, so must reopen
2)		PUSHJ P,OPNOI		;Open for input at least
2)		PUSHJ P,TELLZ		;Better not lose
2)		MOVEI E,EDFIL
2)		TLZE F,ENTRD		;If was open in RA mode, open again in RA mode
2)		PUSHJ P,OPENW
2)		JRST PROTE6
2)	PROTE4:	LDB T,[331100,,EDFIL+2]
2)		MOVEM T,PROTEZ#		;Save for reporting and to restore if error
2)	REPEAT 1,< ;temporary fix to avoid system BAD RETRIEVAL bug in RENAME
2)		MOVE TT,RPPN
2)		CAMN TT,EDFIL+3		;If file is user's own, cannot get protection failure
2)		JRST PROTE7		;Own file

	1) E.70[CSP,SYS] vs. 2) E[CSP,SYS]	SRCCOM	12-10-75	09:27	PAGES 244,244

2)		TLNE F,ENTRD		;Also, no bug if file not being written
2)		TRNN T,44		;Is this file protection protected?
2)		JRST PROTE7
2)		OUTSTR [ASCIZ /cannot be changed/]
2)		JRST PROTE6	;Avoid bug in system: getting bad retrieval if RENAME fails
2)	PROTE7:
2)	>;end temporary fix
2)		HLLZS EDFIL+1


******** E.70[CSP,SYS] **** PAGE 244  LINE 67
1)		OUTSTR [ASCIZ / was /]
1)		SKIPA T,PROTEZ		;Restore data for reporting
*** E[CSP,SYS] *** PAGE 244  LINE 80
2)	PROTE6:	OUTSTR [ASCIZ / from /]
2)		SKIPA T,PROTEZ		;Restore data for reporting


******** E.70[CSP,SYS] **** PAGE 244  LINE 67
1)		TYPCHR " "
1)	PROTEX:	SETZM TYIPNT
*** E[CSP,SYS] *** PAGE 244  LINE 85
2)		OUTSTR (G)
2)	PROTEX:	SETZM TYIPNT